home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / GAMES / ZIGZAG / !Zig_Zag / ADD < prev    next >
Text File  |  1990-07-11  |  693b  |  38 lines
  1. >L.
  2. 20000DEFPROCcol2
  3. 20010MODE15
  4. 20020PRINT''''''''''''''''"Colours:"
  5. 20030FORA=0TO129
  6. 20040COLOUR A
  7. 20050PRINTSTR$(A);" ";
  8. 20060NEXT
  9. 20070PRINT'"Backgrounds"
  10. 20080FORA=130TO255
  11. 20090COLOUR 128
  12. 20100COLOUR A
  13. 20110PRINTSTR$(A);" ";
  14. 20120NEXT
  15. 20130ENDPROC
  16. 20140:
  17. 20150DEFPROCcol
  18. 20160A=1:Q=1
  19. 20170MODE0
  20. 20180CLS:INPUT"Start at which number"A
  21. 20190IF A=0 A=1
  22. 20200MODE15
  23. 20210REPEAT
  24. 20220COLOUR A
  25. 20230CLS:PRINTTAB(12,12)"THAT ALL FOLKS"
  26. 20240PRINT"Colour "STR$(A)
  27. 20250PRINT"Inkey "STR$(Q)
  28. 20260Q=INKEY(150)
  29. 20270IF Q=-1 A=A+1
  30. 20280IF Q=39 A=A+1
  31. 20290IF Q=47 A=A-1
  32. 20300IF Q=59 A=A+10
  33. 20310IF Q=46 A=A-10
  34. 20320UNTIL Q=9
  35. 20330GOTO20160
  36. 20340ENDPROC
  37. >(*SPOOL
  38.